home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / subclass.cls < prev    next >
Text File  |  1997-06-14  |  550b  |  23 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "GSubclass"
  6. Attribute VB_GlobalNameSpace = True
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11.  
  12. Sub AttachMessage(iwp As ISubclass, ByVal hWnd As Long, _
  13.                   ByVal iMsg As Long)
  14.     MSubclass.AttachMessage iwp, hWnd, iMsg
  15. End Sub
  16.  
  17. Sub DetachMessage(iwp As ISubclass, ByVal hWnd As Long, _
  18.                   ByVal iMsg As Long)
  19.     MSubclass.DetachMessage iwp, hWnd, iMsg
  20. End Sub
  21.  
  22.  
  23.